home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / wsart.arc / BOZ JJSLIDE (.txt) next >
Commodore BASIC  |  2009-10-10  |  5KB  |  104 lines
  1. 1 IFTTHEN27
  2. 2 IFPEEK(12*64^2)<>76THENGOSUB48:POKE3499,0:POKE3500,0:POKE45,173:POKE46,13
  3. 3 POKE56,55:POKE53281,0:POKE53280,11:CLR:PRINT"[147][153]"
  4. 4 PRINT"[147][149]","[157][157][164][164][164][164][164][164][164][164][164][164][164][152][198][198][198][198][198][198][198][198][198][198][198][198][198][149]"
  5. 5 PRINT,"[157][157][165][154]BOZ/WAYNE[149][167][158][182]JJSLIDESHOW[146][181]"
  6. 6 PRINT,"[149][157][157][163][163][163][163][163][163][163][163][163][163][163][152][196][196][196][196][196][196][196][196][196][196][196][196][196][151]"
  7. 7 PRINT"     BUTTERFIELD/ONDA/ZAMARA/SCHMIDT[152]"
  8. 8 PRINT"            LOADING DIRECTORY [153]"
  9. 9 A$="ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDE"
  10. 10 A$=A$+A$+A$+"ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQAB"
  11. 11 DIMNM$(40):ML=12*64^2
  12. 12 F=0:T=18:S=1:OPEN15,8,15:OPEN1,8,2,"#"
  13. 13 PRINT#15,"U1:"2;0;T;S
  14. 14 SYS 896
  15. 15 T=ASC(LEFT$(A$,1)):S=ASC(MID$(A$,2,1))
  16. 16 FORI=1TO8:P=16
  17. 17 TY=((ASC(MID$(A$,I*32-32+3,1))AND131)-128)AND3:IFTY<>2THENGOTO22
  18. 18 IFLEFT$((MID$(A$,I*32-32+6,P)),2)<>"JJ"THENGOTO22
  19. 19 IFRIGHT$((MID$(A$,I*32-32+6,P)),1)=CHR$(160)THENP=P-1:GOTO19
  20. 20 NM$(F)=(MID$(A$,I*32-32+6,P))
  21. 21 F=F+1
  22. 22 NEXTI:IFT=18THEN13
  23. 23 F=F-1:CLOSE1:CLOSE15:Z=FRE(0)
  24. 24 :  REM ============
  25. 25 PRINT"     USING FASTLOAD OR SIMILAR[151][[154]Y[149]-[154]N[151]][153]?"
  26. 26 WAIT198,1:GETP$:FL=(ABS(P$="Y"))*2000
  27. 27 FORI=0TOF
  28. 28 OPEN15,8,15
  29. 29 KL=LEN(NM$(I)):POKE583,KL:FORK=1TOKL:POKE(584+K),ASC(MID$(NM$(I),K,255))
  30. 30 NEXT
  31. 31 IFI=0THENSYSML+1136:SYSML+429:GOTO33
  32. 32 SYSML+51
  33. 33 GOSUB41
  34. 34 FORJ=1TOFL:NEXT:NEXT:WAIT198,1:GETP$:SYSML+42
  35. 35 PRINT"[147][153]"," DISPLAY SAME [146] (Y/N)?"
  36. 36 WAIT198,1:GETP$:IFP$="Y"THENGOTO27
  37. 37 PRINT""," ANOTHER DISK [146] (Y/N)?[152]":PRINT"    INSERT NEW ";
  38. 38 PRINT"DISK BEFORE ANSWERING[153]":WAIT198,1:GETP$:IFP$="Y"THENGOTO12
  39. 39 END
  40. 40 : REM ============
  41. 41 INPUT#15,E,E$,E1,E2
  42. 42 IFE=0THENCLOSE15:RETURN
  43. 43 PRINT" DISK ERROR ":PRINT" "E$" ":PRINT" PRESS A KEY[145][145][145]"
  44. 44 CLOSE15:SYSML+42:WAIT198,1:GETP$:RETURN
  45. 45 :
  46. 46 END
  47. 47 : REM ============
  48. 48 FORI=896TO933:READJ:POKEI,J:NEXTI
  49. 49 DATA 160,2,177,45,153,137,0,200,192,6,208,246,162,1,32,198,255,32,228,255
  50. 50 DATA 164,142,145,140,200,240,8,234,234,132,142,196,139,208,238,76,204,255
  51. 51 FOR I=319 TO 384:READJ:POKEI,J:NEXT:POKE251,0:POKE252,192
  52. 52 FOR I=0 TO 36: READ P$
  53. 53 SYS 319,P$: NEXT: RETURN
  54. 54 :
  55. 55 DATA  32, 253, 174,  32, 158, 173
  56. 56 DATA  32, 163, 182, 133,  36, 162
  57. 57 DATA   0, 160, 255,  32, 102,   1
  58. 58 DATA  10,  10,  10,  10, 133,  37
  59. 59 DATA  32, 102,   1,   5,  37, 129
  60. 60 DATA 251, 230, 251, 208, 236, 230
  61. 61 DATA 252, 208, 232, 200, 196,  36
  62. 62 DATA 240,  16, 177,  34, 201,  81
  63. 63 DATA 176,  13, 201,  65, 144,   9
  64. 64 DATA 233,   1,  41,  15,  16,   2
  65. 65 DATA 104, 104,  96,  76,   8, 175
  66. 66 :
  67. 67 DATAEMDKMAEMOLMAEMKHMDEMPJMDEMAJMBEMCDMBEMDDMEEMFMMBEMPMMBEMNAMDEMBGMBEMIC
  68. 68 DATAMBEMPDMBEMKNMBEMMDMBEMEEMDEMGLMDEMGNMEAAAAAAAACAMDMBKJJDCANCPPKJABCAMD
  69. 69 DATAPPKJCEINDGMAKJDAINDHMAKJABKCAIKAAACALKPPKJABKCNMKAMACALNPPCAMAPPKCABCA
  70. 70 DATAMGPPCAMPPPCAMPPPCALHPPNAENCAMPPPCAMPPPMJAAPAEDCAMMPPCAOEPPMJCANAAHCAOE
  71. 71 DATAPPMJCANAPJKCABCAMGPPCAMPPPKICAMPPPEIJIKKGICAMNLNKJCACANCPPCAMPPPMJAANA
  72. 72 DATAAIKJANCANCPPEMHGMACANCPPCAOBPPPAADEMKJMAKJABCAMDPPCAMMPPKJMMIFLCKCNNKA
  73. 73 DATAMACANIMBCAOEPPPAPLGACEANAMFAFCEFFDFDCAEBCAELEFFJAACAKNMBKJGAIFPMKCHPKJ
  74. 74 DATAAAIFPLKILBPLEJPPJBPLMINAPHOGPMOEPMLAPBGACAKNMBOOCANAKNCANAINPPFPGACAKN
  75. 75 DATAMBMOCANAKNCANAINPPFPGAKCPKKJABMKJNAAFMJNPKFMJNPEFNJNOOFONAPBCAKNMBKJAB
  76. 76 DATAKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJAAKCAAKAGACANFPPKNPPFPINCANAGACAKN
  77. 77 DATAMBKJABKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJAAKCAAKAFMCANFPPKNPPFPINCANA
  78. 78 DATAGACAKNMBKJAAIFPLKJFMIFPMKJAIKCAIKAAACALKPPKNEHACKCEJKAACCALNPPKJPLKCEB
  79. 79 DATAKAHPCANIPPCAMDMBGAKJDLINBBNAKJHIINBINAKJJGINAANNKNPPFPINCANAGAKJBLINBB
  80. 80 DATANAKJBFINBINAKJJHINAANNKJALINCANAGAIGPLIEPMKAAALBPLPAAHCANCPPMIEMNOMBGA
  81. 81 DATAAAFMABAAAAAAAAAAAAKJABINOPMBKAABNAAHKJAAINOPMBKAACCAKNMBKFABINPAMBKJAI
  82. 82 DATAKKCALKPPKNEHACKCEJKAACCALNPPCAMAPPKCAIKAAAKNOPMBPABFCAMJPPKNOKMBCANCPP
  83. 83 DATAKNOLMBCANCPPCAGPMCEMFBMCCAMGPPCAOEPPIFPLCAOEPPIFPMCALHPPNAADCABIMDCAMM
  84. 84 DATAPPKJAICAMDPPKNPPFPINCANAKNOPMBNAAECAFBMDGACAMDMBCAFBMDGAKNOKMBIFPLBIGJ
  85. 85 DATAEAINPBMBKNOLMBIFPMGJCDINPCMBCAAGMDINOOMBKAABCAKBMCKFPMMNPCMBNAPGKFPLMN
  86. 86 DATAPBMBNAOPCAPEMCGACAAGMDINONMBMNOOMBNABDOOOMMBNAALMOOMMBCAPEMCKJABINOMMB
  87. 87 DATAEMOHMCKNOMMBMJAELABJKKKNOOMBMJPOPABBKNOOMBCANCPPMKNAPHKJABINOMMBEMOHMC
  88. 88 DATACAPEMCKJABINOMMBKNONMBINOOMBOGPLNAACOGPMGAKJPOCANCPPKNOOMBCANCPPKNOMMB
  89. 89 DATACANCPPGAHIKFABCJPMIFABLBPLEIKNPAMBIFABFIGIGACAOEPPMJPOPAALJBPLOGPLNAAC
  90. 90 DATAOGPMEMDOMDCAOEPPEICAOEPPKKGIJBPLOGPLNAACOGPMMKNAPFCALHPPPANFGAKNBBNAMJ
  91. 91 DATABLNAADEMKNMBEMMDMBKJAAINONMBINOOMBINOPMBINPAMBINPBMBINPCMBKJABINOMMBGA
  92. 92 DATACAKNMBHIKFABCJPMIFABKJAAIFPLIFPNKJFMIFPMKJIAIFPOKAAALBPLKKLBPNJBPLIKJB
  93. 93 DATAPNMINAPDOGPMOGPOKFPMMJIANAOHKFABAJADIFABFICAKNMBGACAKNMBKJAAKIIFPLKJFM
  94. 94 DATAIFPMLBPLBIGJBAJBPLKFPLMJOHPAAJOGPLNAOPOGPMNAOLGAKJFPMFPMNAPBGACAKNMBKJ
  95. 95 DATAAAKIIFPLKJFMIFPMLBPLDIOJBAJBPLKFPLMJOHPAAJOGPLNAOPOGPMNAOLGAKJFPMFPMNA
  96. 96 DATAPBGACAKNMBKJAAKIIFPLKJFMIFPMLBPLINDGMAKKOIIKCJAPINDHMABIKNDGMACJPAGNDH
  97. 97 DATAMAJBPLKFPLMJOHPAAJOGPLNANOOGPMNANKGAKJFPMFPMNAPBGACAKNMBKJAAKIIFPLKJFM
  98. 98 DATAIFPMLBPLINDGMAKKMKIKCJAPINDHMABIKNDGMACJPAGNDHMAJBPLKFPLMJOHPAAJOGPLNA
  99. 99 DATANOOGPMNANKGAKJFPMFPMNAPBGACAKNMBKJABKCAIKAAACALKPPKNEHACKCEJKAACCALNPP
  100. 100 DATAKJAAKCAAKADICANFPPCALHPPMJEANAEAIODIMAIMDJMAKJAAIFPLIFPNKJDIIFPMKJFMIF
  101. 101 DATAPOKAAACALDMEKNPPFPINCANAGAKFPLMNDIMANAAHKFPMMNDJMAPABCCAOLMEMJPOPAAMJB
  102. 102 DATAPNOGPNNAOFOGPOEMLDMEGACAOLMEEICAOLMEKKGIJBPNOGPNNAACOGPOMKNAPFEMLDMELB
  103. 103 DATAPLOGPLNAOCOGPMGA
  104.